Public Class login
    Inherits System.Web.UI.Page
    Protected WithEvents TheHeader1 As header
    'Public pageid As String = "helplogin"
    Public helpaid As String = ""
    Public nNumDaysLeft As Integer = 45
    'Public oUtils As utils
    Public http_ref As String = ""
    Public msg As String = ""
    Public nCID, sVID, sUID, sPassword, sReturn As String
    Public sChange As String
    Public Const cSESSION_ID = 0
    Public Const cCOMPANY_ID = 1
    Public Const cGAPORTAL_ID = 2
    Public Const cUSER_ID = 3
    Public Const cINCIDCONTEXT = 4
    Public Const cINGIDCONTEXT = 5
    Public Const cLOGINDATETIME = 6
    Public Const cLASTACTIVITY = 7
    Public Const cUSERPERMISSIONSSTRING = 8
    Public Const cROLE_ID = 9
    Public Const cMEMBER_TYPE = 10
    Public Const cTERMINAL_NUMBER = 11
    Public Const cTERMINAL_MARKET = 12
    Dim strConn As String = ""
    'Dim oUserSession As Object
    Dim objValid As New gaValidation
    Dim aUserSession(13) As String
    Dim newpwd1, newpwd2 As String
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents textAct As System.Web.UI.WebControls.TextBox
    
#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            msg = ""
        End If

    End Sub

    
   
   
    Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs)

    End Sub
End Class
